home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbchat1a / chat.frm next >
Text File  |  1999-08-30  |  10KB  |  363 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.MDIForm MDIForm1 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "Vb chat"
  7.    ClientHeight    =   5055
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   7080
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    WindowState     =   2  'Maximized
  14.    Begin VB.PictureBox Picture3 
  15.       Align           =   2  'Align Bottom
  16.       BorderStyle     =   0  'None
  17.       Height          =   360
  18.       Left            =   0
  19.       ScaleHeight     =   360
  20.       ScaleWidth      =   7080
  21.       TabIndex        =   5
  22.       Top             =   4695
  23.       Width           =   7080
  24.       Begin MSComctlLib.ProgressBar ProgressBar1 
  25.          Height          =   135
  26.          Left            =   1560
  27.          TabIndex        =   6
  28.          Top             =   120
  29.          Width           =   2655
  30.          _ExtentX        =   4683
  31.          _ExtentY        =   238
  32.          _Version        =   393216
  33.          Appearance      =   0
  34.       End
  35.       Begin VB.Label Label3 
  36.          AutoSize        =   -1  'True
  37.          BackStyle       =   0  'Transparent
  38.          Caption         =   "Mostafa Mohamed web page"
  39.          BeginProperty Font 
  40.             Name            =   "MS Sans Serif"
  41.             Size            =   8.25
  42.             Charset         =   0
  43.             Weight          =   400
  44.             Underline       =   -1  'True
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          ForeColor       =   &H00FF0000&
  49.          Height          =   195
  50.          Left            =   4320
  51.          MouseIcon       =   "chat.frx":0000
  52.          MousePointer    =   99  'Custom
  53.          TabIndex        =   8
  54.          Top             =   90
  55.          Width           =   2070
  56.       End
  57.       Begin VB.Label Label2 
  58.          AutoSize        =   -1  'True
  59.          BackStyle       =   0  'Transparent
  60.          Caption         =   "Sending progress:"
  61.          BeginProperty Font 
  62.             Name            =   "MS Sans Serif"
  63.             Size            =   8.25
  64.             Charset         =   0
  65.             Weight          =   400
  66.             Underline       =   -1  'True
  67.             Italic          =   0   'False
  68.             Strikethrough   =   0   'False
  69.          EndProperty
  70.          Height          =   195
  71.          Left            =   120
  72.          TabIndex        =   7
  73.          Top             =   60
  74.          Width           =   1275
  75.       End
  76.    End
  77.    Begin VB.Timer Timer2 
  78.       Interval        =   1
  79.       Left            =   1680
  80.       Top             =   0
  81.    End
  82.    Begin VB.Timer Timer1 
  83.       Interval        =   1000
  84.       Left            =   1320
  85.       Top             =   0
  86.    End
  87.    Begin MSWinsockLib.Winsock sck 
  88.       Left            =   960
  89.       Top             =   0
  90.       _ExtentX        =   741
  91.       _ExtentY        =   741
  92.       _Version        =   393216
  93.    End
  94.    Begin VB.PictureBox Picture2 
  95.       Align           =   1  'Align Top
  96.       BorderStyle     =   0  'None
  97.       Height          =   495
  98.       Left            =   0
  99.       ScaleHeight     =   495
  100.       ScaleWidth      =   7080
  101.       TabIndex        =   3
  102.       Top             =   0
  103.       Width           =   7080
  104.       Begin VB.CommandButton Command1 
  105.          Caption         =   "Command1"
  106.          Height          =   495
  107.          Index           =   0
  108.          Left            =   0
  109.          Picture         =   "chat.frx":0152
  110.          Style           =   1  'Graphical
  111.          TabIndex        =   4
  112.          Top             =   0
  113.          Visible         =   0   'False
  114.          Width           =   975
  115.       End
  116.    End
  117.    Begin VB.PictureBox Picture1 
  118.       Align           =   4  'Align Right
  119.       BorderStyle     =   0  'None
  120.       Height          =   4200
  121.       Left            =   4785
  122.       ScaleHeight     =   4200
  123.       ScaleWidth      =   2295
  124.       TabIndex        =   0
  125.       Top             =   495
  126.       Width           =   2295
  127.       Begin VB.ListBox List1 
  128.          Enabled         =   0   'False
  129.          Height          =   4155
  130.          ItemData        =   "chat.frx":0494
  131.          Left            =   0
  132.          List            =   "chat.frx":0496
  133.          TabIndex        =   1
  134.          Top             =   360
  135.          Width           =   2295
  136.       End
  137.       Begin VB.Label Label1 
  138.          AutoSize        =   -1  'True
  139.          BackStyle       =   0  'Transparent
  140.          Caption         =   "Available users:-"
  141.          BeginProperty Font 
  142.             Name            =   "MS Sans Serif"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   400
  146.             Underline       =   -1  'True
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          Height          =   195
  151.          Left            =   120
  152.          TabIndex        =   2
  153.          Top             =   120
  154.          Width           =   1155
  155.       End
  156.    End
  157.    Begin VB.Menu mnufile 
  158.       Caption         =   "File"
  159.       Begin VB.Menu mnuconnect 
  160.          Caption         =   "Connect"
  161.       End
  162.       Begin VB.Menu mnuexit 
  163.          Caption         =   "Exit"
  164.       End
  165.    End
  166. End
  167. Attribute VB_Name = "MDIForm1"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Dim lastindex As Integer
  173. Dim tex As String
  174. Private Sub Command1_Click(Index As Integer)
  175. On Error Resume Next
  176. Form1.Picture1(Index).Visible = True
  177. Form1.Picture1(Index).ZOrder 0
  178. End Sub
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186. Private Sub Label3_Click()
  187. On Error Resume Next
  188. Shell "explorer http://www.geocities.com/ResearchTriangle/Campus/4598/", vbNormalFocus
  189. End Sub
  190.  
  191. Private Sub List1_Click()
  192. On Error Resume Next
  193. Load Command1(List1.ListIndex)
  194. Command1(List1.ListIndex).Visible = True
  195. Command1(List1.ListIndex).Left = 0
  196. Command1(List1.ListIndex).Top = 0
  197. Command1(List1.ListIndex).Caption = List1.List(List1.ListIndex)
  198. lastindex = List1.ListIndex
  199. Form1.loadfrm List1.ListIndex
  200. Form1.Label1(List1.ListIndex).Caption = List1.List(List1.ListIndex)
  201. End Sub
  202.  
  203. Private Sub MDIForm_Load()
  204. lastindex = 0
  205. End Sub
  206.  
  207. Private Sub MDIForm_Unload(Cancel As Integer)
  208. On Error Resume Next
  209. sck.SendData "closed=>:" & user.Nickname
  210. Picture2.Visible = False
  211. Unload Form1
  212. List1.Enabled = False
  213. sck.Close
  214. End Sub
  215.  
  216. Private Sub mnuconnect_Click()
  217. On Error Resume Next
  218. If mnuconnect.Caption = "Connect" Then
  219. sck.Close
  220. Form1.Show
  221. List1.Clear
  222. frmLogin.Show vbModal
  223. mnuconnect.Caption = "Disconnect"
  224. Picture2.Visible = True
  225. List1.Enabled = True
  226. Exit Sub
  227. Else
  228. sck.SendData "closed=>:" & user.Nickname
  229. mnuconnect.Caption = "Connect"
  230. Picture2.Visible = False
  231. Unload Form1
  232. List1.Enabled = False
  233. Exit Sub
  234. End If
  235. End Sub
  236.  
  237. Private Sub mnuexit_Click()
  238. On Error Resume Next
  239. sck.SendData "closed=>:" & user.Nickname
  240. Picture2.Visible = False
  241. Unload Form1
  242. List1.Enabled = False
  243. sck.Close
  244. End
  245. End Sub
  246.  
  247. Private Sub Picture1_Resize()
  248. List1.Height = Picture1.ScaleHeight - List1.Top
  249. End Sub
  250. Private Sub sck_Connect()
  251. On Error Resume Next
  252. MDIForm1.sck.SendData "adduser" & "=>:" & user.Name & "=>:" & user.Nickname & "=>:" & user.ip
  253. End Sub
  254.  
  255. Private Sub sck_DataArrival(ByVal bytesTotal As Long)
  256. On Error Resume Next
  257.  Dim start As Integer
  258.   Dim str As String
  259.   Dim res As VbMsgBoxResult
  260.   Dim splited() As String
  261.   Dim arriveddata As String
  262. Dim start2 As Integer
  263.    sck.GetData arriveddata, vbString
  264.    
  265.    DoEvents
  266.   start = 1
  267.   DoEvents
  268.   Do
  269.  
  270.     chrpos = InStr(start, arriveddata, "|", vbTextCompare)
  271.     start2 = start
  272.      X = chrpos
  273.       start = chrpos + 1
  274.     If chrpos <> 1 Then
  275.    If chrpos <> 0 Then
  276.       
  277.       str = Mid(arriveddata, start2, chrpos - start2)
  278.      
  279.       splited() = Split(str, "=>:")
  280.       
  281.       If str <> "" Then
  282.      '-------------------